home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_T3D.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1006 b   |  30 lines
  1. Unit SPX_T3D;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. interface
  7.  
  8. Uses spx_vga;
  9.  
  10. const
  11.   DONT_INTERSECT = 0;                  { Return values for line collision }
  12.   DO_INTERSECT   = 1;
  13.   COLLINEAR      = 2;
  14.  
  15. var
  16.   xc,yc,                               { center of screen     }
  17.   xv,yv,zv,                            { Viewer's position    }
  18.   sx,sy,sz  : integer;                 { Scale factors        }
  19.   sine,                                { sine table           }
  20.   cosine    : array[0..255] of integer;{ cosine table         }
  21.  
  22. procedure setpoints(xx,yy,zz:longint; var xd,yd : integer);
  23. procedure pset3d(xx,yy,zz:integer;n:byte);
  24. procedure line3d(x1,y1,z1,x2,y2,z2:integer;n:byte;clip:boolean);
  25. procedure rotate256xy(var x,y:integer;angle:byte);
  26. procedure rotate256xyz(var x,y,z:integer;xa,ya,za:byte);
  27. function CalculateAngle(x1,y1,x2,y2:integer):integer;
  28. function LinesIntersect(x1,y1,x2,y2,x3,y3,x4,y4:longint;var x,y:longint):integer;
  29.  
  30.